(append-to-buffer): Interactively, supply all 3 args.

Allow nonexistent buffers.

diff --git a/lisp/simple.el b/lisp/simple.el
index 339afef7104e29d49dd641390e72ae46413dd925..7d0b3001fef57241ba380c5f8487f7a683e38220 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1194,7 +1194,8 @@ When calling from a program, give three arguments:
 BUFFER (or buffer name), START and END.
 START and END specify the portion of the current buffer to be copied."
   (interactive
-   (list (read-buffer "Append to buffer: " (other-buffer nil t) t)))
+   (list (read-buffer "Append to buffer: " (other-buffer nil t))
+        (region-beginning) (region-end)))
   (let ((oldbuf (current-buffer)))
     (save-excursion
       (set-buffer (get-buffer-create buffer))